-- card: 8427 from stack: in
-- bmap block id: 3563
-- flags: 0000
-- background id: 2607
-- name: 
----- HyperTalk script -----
on initCard
  global onLine
  if onLine then put "Getting new user info..."
  pass initCard
end initCard



-- part 3 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=351 top=269 right=291 bottom=392
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on doIt
  global userName,userID,userPass,userClear,userOpt,userMachine,userCity
  global userLast, userTimes, lastUserInfo, onLine, callers
  put card field "password to use" into userPass
  put "low" into userClear
  put empty into userOpt
  put card field "login name" into userName
  put card field "machine you use" into userMachine
  put card field "city you call from" into userCity
  newUser
  if onLine then
    add 1 to callers
    get "Caller " & callers
  else get "Local login"
  put it & ": " & userName & "; on at: " & the time & "; times: " & userTimes+1 & "; from: " & userCity into lastUserInfo
  put lastUserInfo
  loginUser
  timeOut 300,"hangUpWarn,hangUp"
  visual effect iris open fast
  go to card id 10726
end doIt



-- part 13 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=367 top=164 right=180 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Login name
----- HyperTalk script -----
-- editable



-- part 8 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=352 top=192 right=208 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Password to use
----- HyperTalk script -----
-- editable



-- part 9 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=348 top=223 right=241 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: City you call from
----- HyperTalk script -----
-- editable



-- part 10 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=358 top=251 right=269 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Machine you use
----- HyperTalk script -----
-- editable



-- part 11 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=452 top=269 right=291 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Redo
----- HyperTalk script -----
on doIt
  openCard
end doIt



-- part 12 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=397 top=281 right=303 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on doIt
  visual effect dissolve fast
  go to card id 6578
end doIt